home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib16.dsk / RAM DISK TEXTFILE DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  20 lines
  1. 10  REM  **********************
  2. 20  REM  *                    *
  3. 30  REM  *     RAM DISK       *
  4. 40  REM  *   TEXTFILE DEMO    *
  5. 50  REM  *                    *
  6. 60  REM  *    BY KEN MANLY    *
  7. 70  REM  *                    *
  8. 80  REM  * COPYRIGHT (C) 1983 *
  9. 90  REM  * BY MICROSPARC, INC *
  10. 100  REM * LINCOLN, MA. 01773 *
  11. 110  REM **********************
  12. 120  IF ( PEEK(47032) < >167)  THEN  PRINT  CHR$(4)"BRUN RAM DISK"
  13. 130 D$ =  CHR$(4): DIM DR$(1):DR$(1) = ">  EMU  <":DR$(0) = "> DISK  <"
  14. 140  FOR DR = 0 TO 1:SL = 6 -DR: HOME : VTAB 2: PRINT "** COPYRIGHT 1983 BY MICROSPARC, INC. **": VTAB 8: PRINT "BUILDING A TEXTFILE ON "DR$(DR): GOSUB 190: NEXT DR
  15. 150  HOME : VTAB 4: PRINT "TYPE A NUMBER FROM 1 TO 26": PRINT : INPUT "0 WILL END THE PROGRAM  ";RC: ON RC = 0 GOTO 180: ON RC <1  OR RC >26 GOTO 150
  16. 160  FOR DR = 0 TO 1: PRINT : PRINT  CHR$(7)"RETRIEVING RECORD "RC" FROM "DR$(DR): GOSUB 200: PRINT  CHR$(7)RC$: PRINT "ANY KEY TO CONTINUE  ";: GET A$: PRINT : PRINT : NEXT DR
  17. 170  PRINT "SEE THE DIFFERENCE?": FOR I = 1 TO 1000: NEXT I: GOTO 150
  18. 180  HOME : PRINT "GOODBYE": PRINT D$"DELETETEXT,S6": END 
  19. 190  PRINT D$"OPENTEXT,L20,S"SL: FOR I = 1 TO 26: PRINT D$"WRITETEXT,R"I:C = I +64: PRINT  CHR$(C) CHR$(C)"  "DR$(DR)"  " CHR$(C) CHR$(C): NEXT I: PRINT D$"CLOSE": RETURN 
  20. 200 SL = 6 -DR: PRINT D$"OPENTEXT,L20,S"SL: PRINT D$"READTEXT,R"RC: INPUT RC$: PRINT D$"CLOSE": RETURN